home *** CD-ROM | disk | FTP | other *** search
/ Multimedia Dogs / Multimedia Dogs v2.0.iso / mac / Extras / MMDogs 2.0 with Desktop / MMDOGS2.DXR / 00261_GalleryDatabaseCode.ls < prev    next >
Encoding:
Text File  |  1995-10-09  |  10.7 KB  |  7 lines

  1. global gGalleryDatabase, gGalleryDatabaseCount
  2.  
  3. on initGalleryDatabase
  4.   set gGalleryDatabase to [["Affenpinscher", "affento", "toys"], ["Afghan Hound", "afghaho", "hounds"], ["Airedale Terrier", "airedte", "terriers"], ["Akbash", "akbasra", "rare"], ["Akita", "akitawo", "working"], ["Alaskan Malamute", "almalwo", "working"], ["American Bulldog", "amebura", "rare"], ["American Eskimo Dog", "amereno", "nonsport"], ["American Foxhound", "amfoxho", "hounds"], ["American Pitbull Terrier", "amepira", "rare"], ["American Staffordshire Terrier", "amstste", "terriers"], ["American Staffordshire Terrier Gazing", "slide36", "gallery"], ["American Water Spaniel", "amwspsp", "sporting"], ["Anatolian Shepherd", "anashra", "rare"], ["Anatolian Shepherd at Work", "slide57", "gallery"], ["Annie", "anniemu", "mutts"], ["Argentine Dogo", "argdora", "rare"], ["Australian Cattle Dog", "auscdhe", "herding"], ["Australian Kelpie", "auskera", "rare"], ["Australian Kelpie with the Flock", "slide58", "gallery"], ["Australian Shepherd", "ausshe", "herding"], ["Australian Shepherd Trio", "slide52", "gallery"], ["Australian Terrier", "austrte", "terriers"], ["Azawakh", "azawara", "rare"], ["Azawakh in a Field", "slide46", "gallery"], ["Bacchus", "bacchmu", "mutts"], ["Bandit", "bandimu", "mutts"], ["Basenji", "basenho", "hounds"], ["Basset Hound", "basseho", "hounds"], ["Beagle", "beaglho", "hounds"], ["Beagle Close-Up", "slide42", "gallery"], ["Beagle Puppies", "slide10", "gallery"], ["Beagle Puppy Sleeping", "slide11", "gallery"], ["Bearded Collie", "beacohe", "herding"], ["Bearded Collie Herding Sheep", "slide07", "gallery"], ["Beauceron", "beaucra", "rare"], ["Bedlington Terrier", "bedlite", "terriers"], ["Belgian Malinois", "belmahe", "herding"], ["Belgian Sheepdog", "belshhe", "herding"], ["Belgian Tervuren", "beltehe", "herding"], ["Bernese Mountain Dog", "bermdwo", "working"], ["Bichon Frise", "bichfno", "nonsport"], ["Biko", "bikomu", "mutts"], ["Birtie & Roman", "birtimu", "mutts"], ["Black and Tan Coonhound", "blacoho", "hounds"], ["Bloodhound", "bloodho", "hounds"], ["Border Collie", "bordche", "herding"], ["Border Collie in Competition", "slide51", "gallery"], ["Border Collie Lying Down in Grass", "slide33", "gallery"], ["Border Terrier", "bordete", "terriers"], ["Borzoi", "borzoho", "hounds"], ["Borzoi Close-Up", "slide39", "gallery"], ["Boston Terrier", "bosteno", "nonsport"], ["Bouvier de Flandres", "bouflhe", "herding"], ["Boxer", "boxerwo", "working"], ["Boxer Close-Up", "slide37", "gallery"], ["Briard", "briarhe", "herding"], ["Brittany", "brittsp", "sporting"], ["Brussels Griffon", "brugrto", "toys"], ["Buddy", "buddymu", "mutts"], ["Bull Terrier", "bullte", "terriers"], ["Bulldog", "bulldno", "nonsport"], ["Bullmastiff", "bulmawo", "working"], ["Cairn Terrier", "cairnte", "terriers"], ["Canaan Dog", "candora", "rare"], ["Cane Corso", "cancora", "rare"], ["Cardigan Welsh Corgi", "carwche", "herding"], ["Caucasian Mountain Dog", "caumtra", "rare"], ["Cavalier King Charles Spaniel", "cavkira", "rare"], ["Cavalier King Charles Spaniel Gazing", "slide40", "gallery"], ["Cavalier King Charles Spaniel Sitting", "slide47", "gallery"], ["Cesky Terrier", "ceskyra", "rare"], ["Chesapeake Bay Retriever", "chbaysp", "sporting"], ["Chihuahua", "chihuto", "toys"], ["Chinese Crested", "chincto", "toys"], ["Chinese Shar-Pei", "chispno", "nonsport"], ["Chow Chow", "chowcno", "nonsport"], ["Clumber Spaniel", "cluspsp", "sporting"], ["Cocker Spaniel", "cocspsp", "sporting"], ["Collie", "collihe", "herding"], ["Collie at the Park", "slide30", "gallery"], ["Collie Herding on the Farm", "slide38", "gallery"], ["Collie in the Woods", "slide41", "gallery"], ["Collie Puppies Playing Ball", "slide13", "gallery"], ["Coton de Tulear", "cottura", "rare"], ["Curly-Coated Retriever", "curlysp", "sporting"], ["Dachshund", "dachsho", "hounds"], ["Dachshund Puppies", "slide34", "gallery"], ["Dachshund Standing in Tall Grass", "slide26", "gallery"], ["Dalmatian", "dalmano", "nonsport"], ["Dalmatian Hunting", "slide35", "gallery"], ["Dalmatian Puppy Kissing Mirror", "slide18", "gallery"], ["Dandie Dinmont Terrier", "dandite", "terriers"], ["Doberman Pinscher", "dobpiwo", "working"], ["Dogue de Bordeaux", "dogbora", "rare"], ["English Cocker Spaniel", "engcosp", "sporting"], ["English Foxhound", "engfoho", "hounds"], ["English Setter", "engsesp", "sporting"], ["English Setter Close-Up", "slide31", "gallery"], ["English Springer Spaniel", "engspsp", "sporting"], ["English Toy Spaniel", "engtsto", "toys"], ["Entlebucher Sennehund", "entsera", "rare"], ["Field Spaniel", "fiespsp", "sporting"], ["Fila Brasileiro", "filbrra", "rare"], ["Finnish Spitz", "finspno", "nonsport"], ["Flat-Coated Retriever", "flatrsp", "sporting"], ["French Bulldog", "frbulno", "nonsport"], ["German Pinscher", "gerpira", "rare"], ["German Shepherd Dog", "gershhe", "herding"], ["German Shepherd Puppy", "slide17", "gallery"], ["German Shorthaired Pointer", "gershsp", "sporting"], ["German Wirehaired Pointer", "gerwisp", "sporting"], ["Giant Schnauzer", "gischwo", "working"], ["Golden Retriever", "goldrsp", "sporting"], ["Golden Retriever Puppies", "slide25", "gallery"], ["Gordon Setter", "gorsesp", "sporting"], ["Gordon Setters in the Mountains", "slide01", "gallery"], ["Great Dane", "gredawo", "working"], ["Great Dane Resting", "slide28", "gallery"], ["Great Pyrenees", "grepywo", "working"], ["Greater Swiss Mountain Dog", "greswra", "rare"], ["Greyhound", "greyhho", "hounds"], ["Harrier", "harriho", "hounds"], ["Havanese", "havanra", "rare"], ["Havanese Puppy", "slide55", "gallery"], ["Herman", "hermamu", "mutts"], ["Ibizan Hound", "ibizaho", "hounds"], ["Irish Red & White Setter", "irsrera", "rare"], ["Irish Setter", "irsetsp", "sporting"], ["Irish Terrier", "irishte", "terriers"], ["Irish Terrier at a Festival", "slide06", "gallery"], ["Irish Water Spaniel", "irwspsp", "sporting"], ["Irish Wolfhound", "iriwoho", "hounds"], ["Irish Wolfhound Gathering", "slide03", "gallery"], ["Italian Greyhound", "itgreto", "toys"], ["Italian Greyhound and Puppy", "slide21", "gallery"], ["Italian Spinone", "itaspra", "rare"], ["Italian Spinone Foursome", "slide54", "gallery"], ["Jack Russell Terrier", "jacrura", "rare"], ["Jack Russell Terriers Chasing", "slide53", "gallery"], ["Jake", "jakemu", "mutts"], ["Japanese Chin", "japchto", "toys"], ["Karelian Bear Dog", "karbera", "rare"], ["Keeshond", "keeshno", "nonsport"], ["Kerry Blue Terrier", "kerblte", "terriers"], ["Klee Kai", "klekara", "rare"], ["Klee Kai Puppy", "slide50", "gallery"], ["Komondor", "komonwo", "working"], ["Kuvasz", "kuvaswo", "working"], ["Kyi-Leo", "kyelera", "rare"], ["Labrador Retriever", "labresp", "sporting"], ["Lakeland Terrier", "lakelte", "terriers"], ["Leonberger", "leonbra", "rare"], ["Lhasa Apso", "lhasano", "nonsport"], ["Louisiana Catahoula", "loucara", "rare"], ["Lowchen", "lowchra", "rare"], ["Maltese", "malteto", "toys"], ["Manchester Terrier", "manchte", "terriers"], ["Manchester Terrier at the Park", "slide09", "gallery"], ["Maremma Sheepdog", "marshra", "rare"], ["Maremma Sheepdog and Puppy", "slide48", "gallery"], ["Maremma Sheepdog Puppies", "slide49", "gallery"], ["Mastiff", "mastiwo", "working"], ["Miniature Bull Terrier", "minbute", "terriers"], ["Miniature Pinscher", "minpito", "toys"], ["Miniature Schnauzer", "minscte", "terriers"], ["Neapolitan Mastiff", "neomara", "rare"], ["Neapolitan Mastiff Head and Tongue", "slide44", "gallery"], ["Neapolitan Mastiff Youngster", "slide45", "gallery"], ["Newfoundland", "newfowo", "working"], ["Newfoundland Pulling Cart", "slide23", "gallery"], ["Newfoundland with Puppy", "slide32", "gallery"], ["Norfolk Terrier", "norfote", "terriers"], ["Norwegian Elkhound", "norelho", "hounds"], ["Norwegian Lundehund", "nowlura", "rare"], ["Norwich Terrier", "norwite", "terriers"], ["Old English Sheepdog", "olenshe", "herding"], ["Otterhound", "otterho", "hounds"], ["Papillon", "papilto", "toys"], ["Pekingese", "pekinto", "toys"], ["Pembroke Welsh Corgi", "pemwche", "herding"], ["Peruvian Inca Orchid", "perinra", "rare"], ["Petit Basset Griffon Vendeen", "pebgvho", "hounds"], ["Petit Basset Griffon Vendeen in a Field", "slide04", "gallery"], ["Pharaoh Hound", "pharaho", "hounds"], ["Plott Hound", "plohora", "rare"], ["Pointer", "poiersp", "sporting"], ["Pointer in the Great Outdoors", "slide05", "gallery"], ["Pomeranian", "pomerto", "toys"], ["Poodle", "poodlno", "nonsport"], ["Portuguese Water Dog", "porwdwo", "working"], ["Presa Canario", "precara", "rare"], ["Presa Canario with Yellow Flowers", "slide56", "gallery"], ["Pug", "pugto", "toys"], ["Pug at the Park", "slide29", "gallery"], ["Puli", "pulihe", "herding"], ["Rat Terrier", "rattera", "rare"], ["Rhodesian Ridgeback", "rhoriho", "hounds"], ["Rhodesian Ridgeback with Puppy", "slide08", "gallery"], ["Rottweiler", "rottwwo", "working"], ["Rottweiler Puppy", "slide16", "gallery"], ["Saint Bernard", "saberwo", "working"], ["Saint Bernard Puppies Kissing", "slide15", "gallery"], ["Saint Bernard Puppy", "slide14", "gallery"], ["Saluki", "salukho", "hounds"], ["Samoyed", "samoywo", "working"], ["Samoyed Puppies", "slide12", "gallery"], ["Schipperke", "schipno", "nonsport"], ["Scottish Deerhound", "scodeho", "hounds"], ["Scottish Terrier", "scottte", "terriers"], ["Scottish Terrier in Springtime", "slide20", "gallery"], ["Sealyham Terrier", "sealyte", "terriers"], ["Shetland Sheepdog", "sheshhe", "herding"], ["Shiba Inu", "shibato", "toys"], ["Shih Tzu", "shitzto", "toys"], ["Shiloh Shepherd", "shishra", "rare"], ["Siberian Husky", "sibhuwo", "working"], ["Siberian Husky in the Mountains", "slide24", "gallery"], ["Siberian Husky Puppies", "slide22", "gallery"], ["Silky Terrier", "silktto", "toys"], ["Skye Terrier", "skyete", "terriers"], ["Smooth Fox Terrier", "smoofte", "terriers"], ["Soft Coated Wheaten Terrier", "sofcwte", "terriers"], ["Staffordshire Bull Terrier", "stabute", "terriers"], ["Standard Schnauzer", "stschwo", "working"], ["Sussex Spaniel", "susspsp", "sporting"], ["Tibetan KyiApso", "tibkyra", "rare"], ["Tibetan Mastiff", "tibmara", "rare"], ["Tibetan Spaniel", "tibspno", "nonsport"], ["Tibetan Terrier", "tibteno", "nonsport"], ["Tosa Inu", "tosinra", "rare"], ["Tosa Inu Puppies", "slide43", "gallery"], ["Tosha", "toshamu", "mutts"], ["Vizsla", "vizslsp", "sporting"], ["Vizsla at the WaterΓÇÖs Edge", "slide27", "gallery"], ["Weimaraner", "weimasp", "sporting"], ["Weimaraner - Zeke The Rocket Dog", "slide19", "gallery"], ["Weimaraners Sitting Near a Tree", "slide02", "gallery"], ["Welsh Springer Spaniel", "welspsp", "sporting"], ["Welsh Terrier", "welshte", "terriers"], ["West Highland White Terrier", "weshwte", "terriers"], ["Whippet", "whippho", "hounds"], ["Wire Fox Terrier", "wirefte", "terriers"], ["Wirehaired Pointing Griffon", "wpgrisp", "sporting"], ["Yorkshire Terrier", "yorktto", "toys"]]
  5.   set gGalleryDatabaseCount to count(gGalleryDatabase)
  6. end
  7.